
 1000  *SAVE S.MON ASCII DISPLAY (FIELD)
 1010  *---------------------------------
 1020  *   PATCHES TO ADD ASCII DUMP TO APPLE MONITOR
 1030  *   ORIGINAL BY PETER BARTLETT
 1040  *   MODIFIED BY BRUCE FIELD
 1050  *---------------------------------
 1060  A1L        .EQ $3C
 1070  COUT       .EQ $FDED
 1080  PRBYTE     .EQ $FDDA
 1090  *---------------------------------
 1100         .OR $FDBD
 1110         .TA $0DBD
 1120         JSR PATCH    CALL MY PATCH CODE
 1130  *---------------------------------
 1140         .OR $FCC9
 1150         .TA $0CC9
 1160  PATCH  PHA          SAVE BYTE 
 1170         LDA A1L      LOW BYTE OF DUMP ADDRESS
 1180         AND #7       MASK LINE POSITION
 1190         CLC
 1200         ADC #31      COMPUTE HORIZONTAL OFFSET
 1210         TAY
 1220         PLA          GET BYTE FROM STACK
 1230         PHA          KEEP COPY ON STACK
 1240         ORA #$80     FORCE NORMAL VIDEO
 1250         CMP #$A0     MAKE CONTROL-CHARS INVERSE
 1260         BCS .1       ...NOT CTRL
 1270         AND #$7F     ...CTRL
 1280  .1     STA ($28),Y  STORE IT ON THE SCREEN
 1290         LDY #0       RESTORE Y
 1300         PLA          RECOVER BYTE AGAIN
 1310         JMP PRBYTE

